home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / gnu / nihcl-30.lha / nihcl-3.0 / test / dict.v < prev    next >
Text File  |  1990-05-19  |  352b  |  21 lines
  1.  
  2. Test class Dictionary
  3. d = (1,1)=>(2,1)
  4. (1,3)=>(2,3)
  5. (1,2)=>(2,2)
  6. d.atKey(Point(1,1)): (2,1)
  7. d = (1,1)=>(3,1)
  8. (1,3)=>(2,3)
  9. (1,2)=>(2,2)
  10. d.includesAssoc(c): 1
  11. d.includesKey(*c.key()): 1
  12. d.keyAtValue(Point(3,1)) = (1,1)
  13. d.includesAssoc(c): 0
  14. d.includesKey(*c.key()): 0
  15. d.asBag: (2,2)
  16. (3,1)
  17. d.addKeysTo(keys): (1,1)
  18. (1,2)
  19. d.addValuesTo(vals): (3,1)
  20. (2,2)
  21.